200 PRINT"[147][159]";:POKE53272,21:POKE53280,0:POKE53281,0
201 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB591
202 PRINT"                                        [146]";
203 PRINT"                                        [146]";
204 PRINT"                                        [146]";
205 PRINT"             ENGLISH CONTEXT            [146]";
206 PRINT"                                        [146]";
207 PRINT"               EXERCISE 10              [146]";
208 PRINT"                                        [146]";
209 PRINT"[159]                                        [146]";
210 PRINT"                                        [146]":GOSUB591:GOSUB560
211 PRINT"          INSTRUCTIONS?  Y/N         [151]T"
212 GETR$:IFR$<>"Y"ANDR$<>"N"ANDR$<>"T"THEN212
213 IFR$="Y"THENGOTO400
214 IFR$="T"THENGOSUB2200
215 PRINT"[147][159] WHAT IS YOUR NAME?":GOSUB560:GOSUB590
216 INPUT N$
217 PRINT"[147][159] AND AWAY WE GO........":GOSUB591:GOSUB500:GOSUB590
218 GOTO1000
235 GOSUB591:GOSUB560
236 PRINT"[154] PRESS SPACE BAR TO CONTINUE [146][155]"
237 GETU$:IFU$<>CHR$(32)THEN237
238 RETURN
240 GOSUB592:GOSUB500
242 PRINT"[154]        >>>  [211][208][193][195][197][160][194][193][210]  <<<"
244 GETUI$:IFUI$<>" "THEN244
246 RETURN
400 PRINT"[147]":POKE53281,0:POKE53280,0
431 PRINT"[159] THIS IS A WORD GAME FOR GRADE 4         PUPILS."
432 PRINT" A SENTENCE WILL BE SHOWN BUT A WORD     WILL BE MISSING.
434 [153]" A LIST OF WORDS WILL BE SHOWN IN"
435 [153]" THE MIDDLE OF THE SCREEN."
436 [153]" CHOOSE THE WORD THAT WILL FINISH"
437 [153]" THE SENTENCE AND MAKE SENSE."
441 [153]" AFTER YOU TYPE IN THE WORD, PRESS        RETURN WAIT":[141]235
443 [153]"OPENLOAD LET'S LOOK AT AN EXAMPLE."
444 [153]" MARS IS KNOWN AS THE RED  ---- .":[153]"SYS ? OPENONONON"
446 [141]450:[153]"":[141]235
447 [153]"ON ? SYSPLANET IS THE CORRECT CHOICE.OPEN  ":[137]490
450 [153]"OPEN SELECT THE MISSING WORD FROM            THIS LIST:
452 PRINT"       DIRECT      MODERN
454 [153]"       DESIGN      PLANET
456 PRINT"       SURVIVE     OBSERVE
458 [153]"       BECKON      COMMUNICATE
460 RETURN
490 GOSUB235:GOTO215
499 :
500 REM <YES>
505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
510 POKE54296,15:POKE54277,42:POKE54278,250
515 POKE54276,23:POKE54273,23:POKE54272,191
520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
525 POKE54296,0:RETURN
530 REM <NO>
535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
540 POKE54296,15:POKE54277,18:POKE54278,242
545 POKE54276,33:POKE54273,4:POKE54272,48
550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
555 POKE54296,0:RETURN
560 REM <BLIP>
565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
570 POKE54296,7:POKE54277,42:POKE54278,250
575 POKE54276,23:POKE54273,23:POKE54272,191
580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
585 POKE54296,0:RETURN
590 FORTM=1TO500:NEXT:RETURN
591 FORTM=1TO1000:NEXT:RETURN
592 FORTM=1TO2000:NEXT:RETURN
593 FORTM=1TO3000:NEXT:RETURN
999 :
1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
1005 C=8:H=0
1010 FORJ=1TOC
1015 READA$,B$
1020 PRINT"[152][147] ED-25 10[156]"TAB(13)""N$TAB(32)"[155]STEP:"H
1025 PRINT"[153] ";A$
1030 GOSUB2300:GOSUB560
1035 INPUT"[158] >>>  ";SX$
1040 IFSX$=B$GOTO1080
1045 IFZ=2THENH=H+1:PRINT"[150][145] THE CORRECT WORD IS [158]"B$:GOSUB530:GOSUB592
1050 IFZ=2THENPRINT"":GOSUB235:GOTO1090
1055 Z=Z+1:H=H+1
1060 PRINT"[150]NO. TRY AGAIN![146]":GOSUB530
1070 GOSUB592:GOTO1020
1080 PRINT""SPC(27)" YES! [146]":GOSUB500:GOSUB592:H=H+1
1090 Z=0:NEXTJ
1099 :
2000 PRINT"[147]YOU HAVE NOW FINISHED EXERCISE 10.":GOSUB591:GOSUB560
2005 PRINT"YOU HAVE ANSWERED"C"QUESTIONS"
2010 PRINT"               IN"H"ATTEMPTS."
2020 IFH<9THENPRINT"[158]                EXCELLENT!              [146]":GOTO2050
2030 IFH<10THENPRINT"[159]              GOOD WORK!                [146]":GOTO2050
2040 PRINT"[150]       TRY HARDER!  DO IT AGAIN!        [146]"
2050 PRINT"":GOSUB235
2055 PRINT"[153][147]YOU HAVE A CHOICE:
2060 [153]"PRESS  R WAIT TO REPEAT EXERCISE 10
2062 PRINT"PRESS  G [146] TO GO EXERCISE 11
2064 [153]"PRESS  M WAIT TO GO TO THE DISK MENU
2068 GETR$:IFR$<>"R"ANDR$<>"M"ANDR$<>"G"THEN2068
2070 RESTORE
2072 IFR$="R"THEN200
2074 IFR$="M"THEN2090
2080 PRINT"[147] GOING TO EXERCISE 11
2082 [147]"EXERCISE 11",8
2084 [138]
2086 [128]
2090 [153]"LOAD RETURNING TO THE DISK MENU
2092 LOAD"MENU",8
2094 RUN
2096 END
2099 :
2100 GOSUB235:POKES1,0:RETURN
2110 DATATHEY WILL ---- THEIR SWORDS AND         ATTACK.,SEIZE
2115 DATADID THE POLICE ---- THE HOUSE?,SURROUND
2120 DATATHE RADIO SPEAKER HAS BEAUTIFUL         ----.,RESONANCE
2125 DATAHER MAIN ---- WAS HER OLD AGE           PENSION.,RESOURCE
2130 DATAPLEASE ---- THESE FIGURES.,TABULATE
2135 DATASHE HAS THE ---- TO THE PROBLEM.,SOLUTION
2140 DATAHE USED ---- TO CUT THE CLOTH.,SCISSORS
2145 DATAWE WERE ---- AT THE HOCKEY GAME.,SPECTATORS
2199 :
2200 PRINT"[147] HERE ARE THE WORDS FOR UNIT 10:[155]":GOSUB560:GOSUB591:
2210 PRINT"1. THEY WILL [158]SEIZE[155] THEIR SWORDS AND        ATTACK.
2215 [153]"2. DID THE POLICE SYSSURROUNDLIST THE             HOUSE?
2220 PRINT"3. THE RADIO SPEAKER HAS BEAUTIFUL         [158]RESONANCE[155].
2225 [153]"4. HER MAIN SYSRESOURCELIST WAS HER OLD           AGE PENSION.
2230 PRINT"5. PLEASE [158]TABULATE[155] THESE FIGURES.
2235 [153]"6. SHE HAS THE SYSSOLUTIONLIST TO THE             PROBLEM.
2240 PRINT"7. HE USED [158]SCISSORS[155] TO CUT THE             CLOTH.
2245 [153]"8. WE WERE SYSSPECTATORSLIST AT THE HOCKEY        GAME.
2290 GOSUB235:GOTO200
2299 :
2300 PRINT" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
2310 PRINT" CHOOSE YOUR ANSWER FROM THE FOLLOWING:[159]"
2320 PRINTSPC(12)"   RESOURCES ":PRINTSPC(12)"   RESONANCE   "
2330 PRINTSPC(12)"   SEIZE     ":PRINTSPC(12)"   SURROUND    "
2340 PRINTSPC(12)"   TABULATE  ":PRINTSPC(12)"   SCISSORS   "
2350 PRINTSPC(12)"   SOLUTION  ":PRINTSPC(12)"   SPECTATORS ":RETURN
3500 REM WHC 92:04:07  93:04:04